unit ORM.Drive.Connection.Base;

interface

type
  TDriveConnection = class
  private
    FDiretorioApp : string;
    FAppName : string;
    FVendorLib: String;
    FServidor: String;
    FDataBase: String;
    FPassword: String;
    FLibraryName: String;
    FUserName: String;
    procedure SetDataBase(const Value: String);
    procedure SetLibraryName(const Value: String);
    procedure SetPassword(const Value: String);
    procedure SetServidor(const Value: String);
    procedure SetUserName(const Value: String);
    procedure SetVendorLib(const Value: String);
    procedure SetAppName(const Value: string);
    procedure SetDiretorioApp(const Value: string);
  public
    property AppName : string read FAppName write SetAppName;
    property DiretorioApp : string read FDiretorioApp write SetDiretorioApp;
    property Servidor: String read FServidor write SetServidor;
    property DataBase: String read FDataBase write SetDataBase;
    property UserName: String read FUserName write SetUserName;
    property Password: String read FPassword write SetPassword;
    property LibraryName: String read FLibraryName write SetLibraryName;
    property VendorLib: String read FVendorLib write SetVendorLib;

    procedure ChamaTelaConfiguracao; virtual; abstract;
  end;

implementation

{ TDriveConnection }

procedure TDriveConnection.SetAppName(const Value: string);
begin
  FAppName := Value;
end;

procedure TDriveConnection.SetDataBase(const Value: String);
begin
  FDataBase := Value;
end;

procedure TDriveConnection.SetDiretorioApp(const Value: string);
begin
  FDiretorioApp := Value;
end;

procedure TDriveConnection.SetLibraryName(const Value: String);
begin
  FLibraryName := Value;
end;

procedure TDriveConnection.SetPassword(const Value: String);
begin
  FPassword := Value;
end;

procedure TDriveConnection.SetServidor(const Value: String);
begin
  FServidor := Value;
end;

procedure TDriveConnection.SetUserName(const Value: String);
begin
  FUserName := Value;
end;

procedure TDriveConnection.SetVendorLib(const Value: String);
begin
  FVendorLib := Value;
end;

end.
